#Get Temp Folder of System
CC "AdoScript" GET_TEMP_FILENAME
SET s_TempFilename: (filename)
SET n_PosFileName: (bsearch ( s_TempFilename , "\\" , (LEN s_TempFilename)-1 ))
SET s_TempFolder: (copy ( s_TempFilename , 0 , n_PosFileName+1 ))

SET s_BatFileName: ("annotationService.bat")
SET s_ResultsFileName: ("Results")
SET s_ClientName: ("wget.exe")

SET s_BatFilePath: (s_TempFolder + s_BatFileName)
SET s_ResultsFilePath: (s_TempFolder + s_ResultsFileName)
SET s_ClientPath: (s_TempFolder + s_ClientName)

CC "AdoScript" FILE_COPY from: ("db:\\" + s_BatFileName) to: (s_BatFilePath) 
CC "AdoScript" FILE_COPY from: ("db:\\" + s_ClientName) to: (s_ClientPath)   

CC "Modeling" GET_ACT_MODEL
CC "Modeling" GET_SELECTED modelid: (modelid)



SET s_selected_objid: (objid)
SYSTEM (s_BatFilePath+" "+g_AnnotationServiceEndPoint+" "+s_ResultsFilePath+" "+s_ClientPath) with-console-window

CC "AdoScript" FREAD file:(s_ResultsFilePath) binary:0 base64:0
SET s_annotatations:(text)

CC "AdoScript"  MLISTBOX entries:(s_annotatations) toksep:(";") boxtext:("Annotations") title:("Select an Concept")

IF (endbutton = "ok")
{
	SET s_selected_annotation:(selection)

	CC "Core" SET_ATTR_VAL objid:(VAL s_selected_objid) attrname:"Annotation" val:(s_selected_annotation)
}
ELSE
{
	CC "AdoScript" INFOBOX "Annotation could not be set successfully"
}